home *** CD-ROM | disk | FTP | other *** search
/ TPUG - Toronto PET Users Group / TPUG Users Group CD / TPUG Users Group CD.iso / AMIGA / (A)G / (A)G6.ADF / anacin3 < prev    next >
Text File  |  1988-05-24  |  1KB  |  78 lines
  1. equate head 0
  2. equate dist 1
  3. equate spd 2
  4. equate chflag 4
  5. equate width 5
  6. equate angle 6
  7.  
  8. drive track 90
  9.  
  10. cpu 2x16bit
  11.  
  12. weapon proton 90 60       \ 80 armor, 50 shots \
  13. weapon proton 90 60
  14. reg 10
  15.  
  16. label begin
  17. posx
  18. # 50
  19. x>y? goto num1
  20. # 180  goto move
  21. label num1 # 0
  22. label move
  23. heading
  24. sto head                  \ reg 0 has heading (0 or 180) \
  25.  
  26. # 15 speed
  27.  
  28. label here
  29. # 90 radar0
  30. x<0? goto tmep1         \ look for something to kill \
  31. # 90 rcl head - # 25 / swap / r-d # 90 + aim
  32. fire 0 fire 1
  33. goto updown
  34. label tmep1
  35. # 1
  36. rcl head
  37. # 180 / - # 92 * # 4 +
  38. posx - abs # 15 x>y? swap sto spd speed
  39. # 5 x<y? goto here
  40.  
  41. # 0 speed
  42. # 45 sto width
  43. rcl head # 2 / # 45 + sto angle
  44. radar x>0? goto findbot
  45.  
  46. label updown
  47. posy # 4 - enter abs sto 8 / # -90 *
  48. heading
  49. rcl 8 speed
  50. # 1
  51. x<y? goto updown
  52.  
  53. # 0 speed
  54. # 180 rcl head - sto head heading  \ turn around \
  55. # 94 sto width # -90 sto angle radar x>0? goto findbot
  56. goto here
  57.  
  58. label findbot
  59. sto dist
  60. # 2 sto/ width rcl width # .6 x>y? goto sht
  61. rdn
  62. sto+ angle
  63. rcl angle
  64. radar x>0? goto findbot
  65. rcl width # 2 * sto- angle
  66. goto findbot
  67.  
  68. label sht
  69. rcl angle # 1 - sto angle aim
  70. label shoot
  71. fire 0
  72. fire 1
  73. # 0
  74. rcl angle
  75. radar x>0? goto shoot
  76. goto updown
  77.  
  78.